home *** CD-ROM | disk | FTP | other *** search
/ Gigantic Games 2 / Gigantic Games 2.iso / pc / _a_ / abitur / txt / faechernamen.mod < prev    next >
Text File  |  1994-12-23  |  2KB  |  43 lines
  1. IMPLEMENTATION MODULE FaecherNamen;
  2.  
  3. FROM Str IMPORT Copy;
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11. BEGIN
  12.    Copy(FaecherNamen[Turnen    ].ShortCut, "T");
  13.    Copy(FaecherNamen[Turnen    ].VollName, "Turnen");
  14.    Copy(FaecherNamen[Geographie].ShortCut, "Gg");
  15.    Copy(FaecherNamen[Geographie].VollName, "Geographie");
  16.    Copy(FaecherNamen[Geschichte].ShortCut, "Gs");
  17.    Copy(FaecherNamen[Geschichte].VollName, "Geschichte");
  18.    Copy(FaecherNamen[Franz     ].ShortCut, "Fr");
  19.    Copy(FaecherNamen[Franz     ].VollName, "Franz");
  20.    Copy(FaecherNamen[Deutsch   ].ShortCut, "D");
  21.    Copy(FaecherNamen[Deutsch   ].VollName, "Deutsch");
  22.    Copy(FaecherNamen[Englisch  ].ShortCut, "E");
  23.    Copy(FaecherNamen[Englisch  ].VollName, "Englisch");
  24.    Copy(FaecherNamen[Latein    ].ShortCut, "L");
  25.    Copy(FaecherNamen[Latein    ].VollName, "Latein");
  26.    Copy(FaecherNamen[Zeichnen  ].ShortCut, "Z");
  27.    Copy(FaecherNamen[Zeichnen  ].VollName, "Zeichnen");
  28.    Copy(FaecherNamen[Werken    ].ShortCut, "W");
  29.    Copy(FaecherNamen[Werken    ].VollName, "Werken");
  30.    Copy(FaecherNamen[Musik     ].ShortCut, "Mu");
  31.    Copy(FaecherNamen[Musik     ].VollName, "Musik");
  32.    Copy(FaecherNamen[Mathe     ].ShortCut, "M");
  33.    Copy(FaecherNamen[Mathe     ].VollName, "Mathe");
  34.    Copy(FaecherNamen[Physik    ].ShortCut, "Ph");
  35.    Copy(FaecherNamen[Physik    ].VollName, "Physik");
  36.    Copy(FaecherNamen[Chemie    ].ShortCut, "Ch");
  37.    Copy(FaecherNamen[Chemie    ].VollName, "Chemie");
  38.    Copy(FaecherNamen[Bio       ].ShortCut, "B");
  39.    Copy(FaecherNamen[Bio       ].VollName, "Bio");
  40.    Copy(FaecherNamen[Informatik].ShortCut, "If");
  41.    Copy(FaecherNamen[Informatik].VollName, "Informatik")
  42. END FaecherNamen.
  43.